home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / LPT12SET.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  2.6 KB  |  46 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 12  '********************* LPT1 AND LPT2 TOGGLE PROGRAM ************************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN         PROGRAM TO DIRECT OUTPUT LPT1: OR LPT2: (PARALLEL)              OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN     When you purchase an expansion board for the IBM with a second      OPEN
  7. 24  'OPEN parallel port (LPT2:), the accompanying documentation usually states    OPEN
  8. 26  'OPEN that you can "address" the port with appropriate software; however,     OPEN
  9. 28  'OPEN the software is hard to find.  This program will toggle the computer    OPEN
  10. 30  'OPEN output between LPT1: and LPT2:. You can use the routine in an AUTOEXEC  OPEN
  11. 32  'OPEN program with a word-processor.  If you use it in this fashion, return   OPEN
  12. 34  'OPEN to SYSTEM before calling up a .COM or .EXE word processor file. You     OPEN
  13. 36  'OPEN may "REM" or DELETE all of the PRINT lines from 220 on to eliminate the OPEN
  14. 38  'OPEN statements which report the state of the appropriate address ports.     OPEN
  15. 40  'OPEN Run BLUEBERY.BAS or LABELPRO.BAS for an example of this routine being   OPEN
  16. 42  'OPEN worked into an application program.  This program may be used in whole  OPEN
  17. 44  'OPEN or in part without attribution or license.                              OPEN
  18. 46  'OPEN                 (c) G I N A C O  -- 1968            Ver 5.2/320/160     OPEN
  19. 50  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  20. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  21. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  22. 60  CLS:SCREEN 0,0,0:WIDTH 80:KEY OFF:FOR I=1 TO 10:KEY I,"":NEXT:CLEAR
  23. 110  DEF SEG = &H40
  24. 120  PRINT PEEK(&H8), PEEK(&H9), PEEK(&HA), PEEK(&HB)
  25. 130  PRINT "&H8";" ="; PEEK(&H8),"&H9";" ="; PEEK(&H9),"&HA";" ="; PEEK(&HA),"&HB";" ="; PEEK(&HB)
  26. 140  A! = PEEK(&H8)
  27. 150  B! = PEEK(&H9)
  28. 160  C! = PEEK(&HA)
  29. 170  D! = PEEK(&HB)
  30. 180  POKE &H8,C!
  31. 190  POKE &H9,D!
  32. 200  POKE &HA,A!
  33. 210  POKE &HB,B!
  34. 220  PRINT PEEK(&H8), PEEK(&H9), PEEK(&HA), PEEK(&HB)
  35. 230  PRINT "&H8";" ="; PEEK(&H8),"&H9";" ="; PEEK(&H9),"&HA";" ="; PEEK(&HA),"&HB";" ="; PEEK(&HB)
  36. 240  IF PEEK(&H9) = 3 THEN LPT$ = "1" ELSE LPT$ = "2"
  37. 250  PRINT:PRINT "PRIMARY PRINTER =LPT";LPT$ + ":"
  38. 260  PRINT:PRINT;CHR$(34);"R U N";CHR$(34);" again to change primary printer."
  39. 270  :REMPRINT"A";A,"B";B,"C";C,"D";D
  40. 280  FOR I! = 1 TO 1000
  41. 290  NEXT
  42. 300  PRINT:PRINT"Change LINE 180 to ";CHR$(34);"SYSTEM";CHR$(34);" when used in an AUTOEXEC.BAT program."
  43. 310  END
  44. 65000  '***********************  SAVE ROUTINE  *******************************
  45. 65100  SAVE"B:LPT12SET.BAS"
  46.